home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / Serious Demos / Visual MacStandardBasic Demo / Samples / MultiForm Demo / Form2 < prev    next >
Encoding:
Text File  |  1997-09-30  |  1.7 KB  |  111 lines  |  [FORM/VMSB]
  1. MacStandardBasic Form Version 3.0
  2.  
  3.     FormBegin
  4.       Name=Form2
  5.       Title=Form2
  6.       Left=250
  7.       Top=262
  8.       Width=343
  9.       Height=157
  10.       Sub Proc.=None
  11.       Visible=1
  12.       Style=5
  13.       Enabled=1
  14.       Font=Geneva
  15.       FontSize=12
  16.       FontStyle=0
  17.       Show Grid=1
  18.       Grid Snap=1
  19.       Grid Size=8
  20.       Min. Width=100
  21.       Max. Width=2000
  22.       Min. Height=100
  23.       Max. Height=2000
  24.       AutoCenter=0
  25.       ForeColor=0 0 0
  26.       BackColor=15277 65535 14419
  27.     FormEnd
  28.  
  29.     ControlBegin=TextBox
  30.       Name=TextBox1
  31.       Text=TextBox1
  32.       Left (x)=40
  33.       Top (y)=24
  34.       Width=265
  35.       Height=17
  36.       Sub Proc.=None
  37.       Visible=1
  38.       Value=1
  39.       Enabled=1
  40.       Font=Geneva
  41.       FontSize=12
  42.       FontStyle=0
  43.       ScrollBar=0
  44.       Read Only=0
  45.       Tab Index=1
  46.       Opt20=1
  47.       Frame=1
  48.       ForeColor=0 0 0
  49.       BackColor=65535 65535 65535
  50.     ControlEnd
  51.  
  52.     ControlBegin=Button
  53.       Name=Button1
  54.       Text=Set ScrollBar in Form1 to 5
  55.       Left (x)=40
  56.       Top (y)=64
  57.       Width=265
  58.       Height=33
  59.       Sub Proc.=Button1_Click
  60.       Visible=1
  61.       Value=0
  62.       Enabled=1
  63.       Opt20=1
  64.     ControlEnd
  65.  
  66.     ControlBegin=Button
  67.       Name=Button2
  68.       Text=Set TextBox in Form3
  69.       Left (x)=40
  70.       Top (y)=112
  71.       Width=265
  72.       Height=33
  73.       Sub Proc.=Button2_Click
  74.       Visible=1
  75.       Value=0
  76.       Enabled=1
  77.       Opt20=2
  78.     ControlEnd
  79.  
  80. Global
  81.     Dim 
  82.  
  83.  
  84.  
  85. EndGlobal
  86.  
  87. Sub DropList1_Click( )
  88.     
  89.  
  90.  
  91. EndSub
  92.  
  93. Sub Button1_Click( )
  94.     If CtlExist(Form1.Scrollbar1) then
  95.         CtlValue Form1.Scrollbar1, 5
  96.     EndIf
  97.  
  98.  
  99.  
  100. EndSub
  101.  
  102. Sub Button2_Click( )
  103.     If CtlExist(Form3.TextBox1) then
  104.         CtlText Form3.TextBox1, "Set by Form2", 0
  105.     EndIf
  106.  
  107.  
  108.  
  109. EndSub
  110.  
  111.